convodata <- read_feather(here("data/childes_convo_reduced_dims.feather")) %>%
mutate(transcript_id = as.numeric(transcript_id), utterance_order = as.numeric(utterance_order),
target_child_age = as.numeric(target_child_age)) %>%
filter(gloss != "yyy", gloss != "xxx")
convodata %>%
filter(transcript_id == 5465) %>%
ggplot(aes(V1, V2, color = speaker_code)) +
geom_point()
Above: The first transcript of kid A at 21 months (1.75 years) old.
convodata %>%
filter(target_child_id == 3617) %>%
ggplot(aes(V1, V2, color = speaker_code)) +
facet_grid(~target_child_age) +
geom_point()
Above: All transcripts from kid A, faceted over age.
convodata %>%
filter(transcript_id == 5505) %>%
ggplot(aes(V1, V2, color = speaker_code)) +
geom_point()
Above: The last transcript of kid A at 40 months (3.3 years) old.
fig <- convodata %>%
filter(transcript_id == 5505, utterance_order < 300) %>%
plot_ly(x=~V1, y=~V2, z=~utterance_order, type="scatter3d",
mode="markers",
text = ~gloss,
marker = list(size = 3),
color=~speaker_code)
fig
Above: The last transcript of kid A, with utterance order (time) on the third dimension.
fig <- convodata %>%
filter(transcript_id == 8625) %>%
plot_ly(x=~V1, y=~V2, z=~utterance_order, type="scatter3d",
mode="markers",
text = ~gloss,
marker = list(size = 3),
color=~speaker_code)
fig
Above: A transcript from kid B, 3 years old.
fig <- convodata %>%
filter(transcript_id == 5465) %>%
plot_ly(
x = ~V1,
y = ~V2,
color = ~speaker_code,
frame = ~utterance_order,
hoverinfo = "text",
type = 'scatter',
text = ~gloss,
mode = 'markers'
)
fig %>% add_text(textposition = "top right") %>%
animation_opts(750, redraw = FALSE)
Above: The first transcript from kid A, playable over time.
fig <- convodata %>%
filter(transcript_id == 5505) %>%
plot_ly(
x = ~V1,
y = ~V2,
color = ~speaker_code,
frame = ~utterance_order,
hoverinfo = "text",
type = 'scatter',
text = ~gloss,
mode = 'markers'
)
fig %>% add_text(textposition = "top right") %>%
animation_opts(750, redraw = FALSE)
Above: The last transcript of kid A, playable over time.